home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
PGM_TOOL
/
SMP_PT
/
HICOLOR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-04-02
|
1KB
|
44 lines
{Comments:
The only thing high color codes change are the blink attributes.
If you make the textbackground(0) and the textcolor(15+blink),
you will get a grayish background, and white text.. Without
the +blink or +128, it will look the same as low color.
}
uses crt, dos;
procedure highcolor;
var regs: registers;
begin
FillChar (regs, SizeOf(regs), 0); (* An initialization precaution *)
regs.ah := $10; (* Function $10 *)
regs.al := $03; (* Subfunction $03 *)
regs.bl := $00; (* turns on high color *)
Intr ($10, regs); (* ROM BIOS video driver interrupt *)
end;
procedure lowcolor;
var regs: registers;
begin
FillChar (regs, SizeOf(regs), 0); (* An initialization precaution *)
regs.ah := $10; (* Function $10 *)
regs.al := $03; (* Subfunction $03 *)
regs.bl := $01; (* turns off high color *)
Intr ($10, regs); (* ROM BIOS video driver interrupt *)
end;
begin
highcolor;
clrscr;
textbackground(0);
textcolor(15+blink);
clrscr;
writeln('This really works....');
readkey;
lowcolor; {use to change back to low color, duh}
normvideo; {reset to normal video mode}
clrscr;
end.